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**F ILE®*]D**OPCOMLIB 


PPPPPPPP cccccccc 000000 MM MM LL III BBBBB88B 
PPPPPPPP ccccccce 000000 MM MM LL IIIIII BBBBBBBB 

00 PP PP tt 00 00 MMMM MMMM LL II BB 8B 

OO PP PP CC 00 00 MMMM MMMM LL I] 88 BB 

00 PP PP CC 00 00 MM MM LL I] BB BB 

00 PP PP CC 00 0O MM MM MM LL I] 8B BB 

00 PPPPPPPP cc 00 00 MM LL II 688888888 

00 PPPPPPPP cc 00 0O MM MM LL I] BBBBBBBB 

00 PP cc 00 0O MM MM LL II BB BB 

00 PP cc 00 00 MM MM LL 1] BB BB 

00 PP cc 00 00 MM MM LL I] BB BB eee 

00 PP cc 00 0O MM MM LL I] BB BB cee 
PP cccccccc 000000 MM MM LLLLLLLLLL III! BBBBB8BB . 
PP ccccccce 000000 MM MM LLLLLLLLLL III! BBBB eeee 
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eo t3C4 OPCSOPCOMLIB (IDENT = 'V04-000') = TITLE ‘Facility-wide Library module’ 


(Oe eeeeeeeeHeKeeeeeeRKeKKAeeeeeeeeeKeeKeeeeeeeeeeneeeeeteeeeeeeeereeeereRente 
' 


° e 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B ® 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
ie ALL RIGHTS RESERVED. s 

* 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF such Lic ENSE AND ts THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. § SOFTWARE OR OTHER * 
ie COPIES THER EOF HA v NOT BE PROVIDED OR BTHERUiSE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE 1§ HEREBY © 
ie TRANSFERRED. . 
° * 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
ie CORPORATION. ° 

Ww 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. , 

® 

® 

® 


(See ee eee KHAe AEH eKKeeeReeKeAeeKeeeeeeekeeeeateeeeeeeteeeereerrererereresr 


FACILITY: OPCOM - Operator communication facility 
ABSTRACT: BLISS Library for OPCOM facility 
ENVIRONMENT: VAX/VMS User mode 

AUTHOR : Cw Hobbs 

CREATED: 24-Aug-1983 

MODIFIED BY: 


v03-003 CwH3003 Cw Hobbs 12-Aug-1984 
Remove REPLY and SOF TUARE operators from the known List 


vVO3-002 CwH3002 CW Hobbs 16-Sep-1983 
Move non-facility EXTERNAL ROUTINE declarations to this file 


+ 


1‘ 
Include the data structure definitions from external files 


{LIBRARY *SYSSLIBRARY:L1B'; 

REQUIRE ‘LIBS: OPCDEF TMP" ; ! New message definitions 
REQUIRE *LIBS:OPCOMDEF' i. 

REQUIRE *SHRLIBS$:CLUMBX’; 
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! Define a compile time 
COMPILETIME counter = 0; 
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i 
Define Literal values 
LITERAL 


max_dev_nam = 64, 


Maximum Length of a dev name 


variable to be used as a table origin by several of the macros. 


Define volume protection masks that are used to control access to the operator mailbox. 


fad write . ZX'OFFOF', Allow read and write access 


read_ _nowrite ZX'OFFFF', 
Other useful Literals 


true = 1, ' BOOLEAN value 

false = 0, ! BOOLEAN value 

on = 1, ! Bit value 

off = 0, ! Bit value 

Define the masks containing all known operators 

known_attn_mask1 = (OPCSM_NM_CENTRL OR OPCSM_NM_PRINT OR 
OPC$M_-NM_DISKS OR OPCSM-NM_DEVICE OR 
OPCSM_NM_NTWORK OR OPCSM_NM_CLUSTER 0 
'OPCSM_NM_REPLY OR OPCSM_NM_SOFTWARE OR 
OPCSM_NM_OPER1 OR 93 ML 0 
3 Ma a OR OPCSM_NM_OPERS OR 
OPCSM_NM_OPER7 OR OPCSM_NM_OPERS OR 
OPCSM_NM_OPER10 OR OPCSM_NM_OPER11 OR 

known_attn_mask2 = 0; 


Define routine Linkages 


alloc_csd = JSB ee 1; REGISTER=2) 

SERVE (3) NOTUSED (4,5,6,7,8,9,10,11), 
csp_call = JSB cnéghs Tene ) 

Sep (3,4,5,6,7,8,9,10,11), 
dalloc_csd = JSB (REGISTER: 

— c lfe 2 NOTUSED (4,5,6,7,8,9,10,11), 
jsb_r0Orl = JSB (REGISTER REG 


R=1) 
PRESERVE ( ; EeTenel? (2,3,4,5,6,7,8,9,10,11); 


Allow read, don't allow write 


OPCSM_NM_TAPES OR 
OPCS$M~NM-CARDS OR 
OPCSM"NM~SECURITY OR 
OPCSM“NM-FILL_11 OR 
OPCSM"NM-OPER3 OR 
OPCSM“NM~OPER6 OR 
OPCSM"NM~OPER9 OR 
OPCSM“NM~OPER12), 


+4 
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1 
Declare some common data structure initialization macros 


MACRO 
Define shorthand for a single initialized dynamic string desc 


$dyn_str_desc ! Static declaration 


BLOCK Cdsc$k_d g.din. oyTE 
PRESET ( (hdsc$buc 
c$b_ oem 
dscSua _length) 
dsc$a_pointer] 


dsc$k_class_d, 
.: sc$k_dtype_ t. 


) 


z, 
$Sdyn_str_desc_init (desci) ! Run-time initialization 
= 
BEGIN 
BIND 
Gove = (desci) : VECTOR (2, LONG], 
tagl = oxch?s ynstr _template : VECTOR (C2, LONG); 
desc st = .tmpl 93; 
iy = .tmpl (1 


: Define macro for a single initialized static string desc. 
$stat_str_desc (L. A) 
BLOCK Cdsc$k_s ~oln. BYTE) 


Static declaration, init to length and address 


PRESET( Cdsc$b_class = dsc$k_class_s, 

sc$b_dtype = dsc$k_dtype_t, 
dsc$w_length) = (L), 
dsc$a_pointer] = (A) ) 


zt, 
$string_desc (str) 


BLOCK Cdsc$k_s -bin. BYTE) 
PRESET ( qsc¥p_ “class 
“dtype 
dsc$u- _length) 
dsc$a_pointer] 


Static declaration, init to length and address 


qectt ~G lass. -;: 
SC e 
(CH HARCOUNT”{S1R> 


z, 
$Sstat_str_desc_init (desci, L. A) ! Run-time initialization 
= 
BEGIN 
BIND 
desc = (desci) : BLOCK C, BYTE); 
desc (dsc$b_class = dsc$k_class_s; 
desc [dsc$b_dtype = dsc$k_dtype_t; 
desc (dsc$w_length]_ = te 


desc (dsc$a_pointer] 
END 
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$Sbvector CI; NJ = 
($bvector+1)<0,8,0>; 
'¢ 
! SIGNAL_STOP a condition assuming no return. LIBSSTOP is n 


ot 
' supposed to return, but BLISS doesn't know this, so we block further 
i flow here. This will generate better code for us. 


MACRO 
$siynal_stop (] 


x, 
$str_desc_set (desci, L, A) ! Copy new Length and pointer fields (both static and dynamic) 
BEGIN 
BIND * 
desc = (desci) : BLOCK C, BYTES; 
desc (dsc$w_length)_ = (L); 
desc (dsc$a_pointer] = (A); 
END 
And shorthand for just a descriptor declaration 
S$desc_block 
= 
nee Cdsc$k_s_bln, BYTE) 
Short form for byte vector reference 
$ref_bvector 
- $bvector 
Short form for byte block reference 
$ref_bblock 
REF S$bblock 
z; 
STRUCTURE 


“ant : PRESERVE (0,1,2,35,4,5,6,7,8,9,10,11); 
LIBSSTOP : ADDRESSING_MODE (GENERAL) LNK NOYALUE; 


STOP (ZREMAINING) ; 
RN (.RO); 
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‘4 
SIGNAL a condition and return. 


Seee Sete Ge ee Se ee 


RO 
$signal_return (code) 


BEGIN 
LOCAL 
temp; 


temp = a v3 ' Need to avoid multiple calis, etc 

SIGNAL ( zene ! Perform the actual signet of the error 
LENGTH GTR 1 XTHEN  SREMAINING “FI 

RETURN .temp 


END 
a; 


“+ 


‘4 
} SIGNAL a condition and continue. 
MACRO 

$signal (code) 


ZIF ZLENGTH GTR i LTHEN »SREMAINING 2F1 

14 5 
i Check for a logic error. If the expression is not true, then we have a problem. 
MACRO 
$Slogic_check (level, condition, error_code) 


See if a compile time check is possible 
ZIF XCTCE (condition) 
ZTHEN 


! The condition is a compile-time heeress ion. There is one special case, when the 
: condition is the string "(false This is used as an unconditional logic abort. 
If we have “(false)’’, then do : gos. SIGNAL_STOP 
Xf RIDENTICAL (condition, (false)) 
SIGNAL_STOP (exch$_badlogic, 1, (error_code)) 
! The condition is a normal test. If it is true, print a message that the condition 
was verified during compilation. If false, generate a serious error. 
TELS 


| 
SIGNAL ( (code) Perform the actual pignes of the error 
SE 
ZIF (condition) 
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X%THEN 
OT hal (‘assumption ',error_code,' verified during compilation’) 
FERROR (‘assumption ',error_code,' is not true’) 
XFI 


! The condition is not a compile-time constant. If the current variant calls for it, 
generate run-time code to test the assumption. 


ZELSE 
Z1F switch variant GEQ (level) 
ZTHEN 
BEGIN 
ul a (condition) 
> SIGNAL_STOP (exch$_badlogic, 1, (error_code)); 
xF I 
XFI 


Message print routines 


MACRO 
$Sprint_lit (string) 


Be Lael || 


ib$Sput_output (ZASCID string) 


$Sprint_desc (desc) 


vem 


ib$put_output (desc) 


$print_fao (string) 


EGIN 
XTERNAL ROUTINE SHARE _FAQ_BUFFER; 
1 


eut output ( 
HARE FAO BUFFER (ZASCID string 
Z7F ZCENGTH GTR 1 XTHEN ,XZREMAINING %FI)) 


—mnw it 


3 Macros to manipulate queues 
MACRO 
‘ Initialize the header of a queue. This means make each of the 2 pointers in the header point to the header. 
$queue_initialize (q_header) 
BEGIN 


BIND 
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~ah_ = (q header) : VECTOR C2, LONG); 
h_ (0) = .qh_; 
sanz EY = -h-i 
END 
x, 
Insert an element at the head of a queue. 
Squeue_insert_head (item, q_header) 
BEGIN 
BUILTIN 
INSQUE; 
BIND 
_ah_ = (q_header) : VECTOR (2, LUNG); 
INSQUE ((item), _qh_ (02) 


i, 
Insert an element at the tail of a queue. 
Squeue_insert_tail (item, q_header) 


BEGIN 


BUILTIN 
INSQUE ; 
BIND 


_ah_ = (q_header) : VECTOR C2, LONG]; 
INSQUE (item), ._qh_ (1)) 


Remove the indicated element from a queue. The first parameter is the address of the element. The second 
parameter is optional. 


+ 


If supplied, it is the address of a longword in which to store the element removed from the queue or 0 if 
nu element was present in the queue. The value of the expression is TRUE is a element was removed from the 
' queue and FALSE otherwise. 


If the second parameter is not supplied, the value of the expression is the address of the element removed 
from the queue or 0 if no element was present in the queue. 


Squeue_remove (q_element, element) 


BEGIN 


BIND 
_qhead_ = (q_element) : VECTOR (2, LONG); 
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BUILTIN 
REMQUE ; 


CENULL (element) ) 
T. : REF VECTOR C2, LONG]; 
-_ Tl. = (element) : REF VECTOR (2, LONG); 
IF (REMQUE (_qhead_, _T_)) 
THE 
BEGIN 
Queue was empty 
IF (XNULL (element)? 
THEN 
ELSE 
(_T_. = 0; FALSE) 
END 
ELSE 
BEGIN 
IF (ZNULL (element) ) 
THEN ' 
ELSE ~ ~ 
true 
END 
END 
x, 
1+ 
: second parameter is optional. 
! no element was present in the queue. T 
: queue and FALSE otherwise. 
; from the queue or 0 if no element was present in the queue. 
Squeue_remove_head (q_header, element) 
BEGIN 


-ah_ = (q_header) : VECTOR (C2, LONG); 


ZIF (ZNULL (element)) 
THEN 
$queue_remove (._qgh_ [0)) 


: Remove an element from the head of a queue. The first parameter is the address of ihe queue header. The 


iif supolied, it is the address of a leqgeere in which to store the element removed from the queue or 0 if 
e value of the expression is TRUE is a element was removed from the 


i If the second parameter is not supplied, the value of the expression is the address of the element removed 


OP COML 
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$q 


! no element was present in the queue. T 
' queue and FALSE otherwise. 
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sna | 
eri queuve_remove (._qah_ [0], element) 


END 


Remove an element from the tail of a queue. The first parameter is the address of the queue header. The 


' second parameter is optional. 


If supplied, it is the address of a loppuere in which to store the element removed from the queue or 0 if 
e value of the expression is TRUE is a element was removed from the 


If the second parameter is not supplied, the value of the expression is the address of the element removed 
from the queve or 0 if no element was present in the queue. 
ueue_remove_tail (q_header, element) 

BEGIN 


BIND 
_ah_ = (q_header) : VECTOR [?, LONG]; 


ZIF (ZNULL (element)) 

ZTHEN 

poveus,penave (..qgh_ (1)) 
Squeve_remove (._qh_ [1], element) 


END 


: Test a queve for emptiness. TRUE if the queue is empty, FALSE if the queue is not empty 


Squeue_empty (q_header) 


BEGIN 


BIND 
_ah_ = (q_header) : VECTOR (2, LONG); 


agh_ EQLA ._qh_ (0) 


EN 
q; 


OP 
vo 


—— 
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! 
Define macros specific to OPCOM functions 


MACRO 


i This next macro will allow us to examine any element 
: of the count vector by just specifying its index. 


! 
OCD_W_ENABLECOUNT (N) = (N®2)+S$BYTEOFFSET(OCD_T_COUNTVECTOR) ,0, 16,12; 
MACRO 


'ee 


! SCB_DEF 
! Functional description: 


This macro will build the SCB table and the associated 
SCB*s. Each entry in the SCB table is a pointer to 

an SCB. Each SCB describes a particular data structure. 
The table has a 1 origin, and is indexed by the data 
structure type. 


' Inputs: 

DS_TYPE : Data structure type. An alphabetic 
thay that is assumed to prefix ail 
structure definitions and literals 

COUNT : Count of data structures of this type 


to be preallocated and inserted on 
the its SCB look-aside List. 


! Implicit Input: 


A COMPILETIME symbol, DS_TYPE_CODE, has 
been declared and initialized to 1. 


' Implicit Output: 


A GLOBAL LITERAL defining the data 


' 
' 

i 

' 

i 

i 

1 

i 

' 

i 

i 

1 

i 

i 

' 

: pertaining to that structure type. 
! 

i 

! 

i 

i 

i 

i 

' 

‘ 

i 

! 

i 

structure type is declared. 


SCB_DEF 
(DS_TYPE,COUNT) = 
GLOBAL LITERAL ZNAME (DS_TYPE,"_K_TYPE*) = COUNTER; 
PSECT OWN = $SCB_ENTRY; 
SCB:  $bblock CSCB_K S176] 
PRESET ([SCB_Q SIZE) = ZNAME (DS_TYPE,"_K_SIZE"), 
SCB-W~LAL_COUNT) = COUNT, 
SCBL-FLIRK = SCB + SBYTEOFFSET (SCB_L_F 
SCB~L~BLINK = SCB + SBYTEOFFSET (SCB7L-F 


) 
PSECT OWN = $SCB_TABLE; 


L 
L 


— 
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INITIAL (SCB); 
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Run-time Library and other routines external to the facility 


scabies | ROUT INE 

cli$get_value : ADDRESSING_MODE (GENERAL), ' CLI Entity value fetch 
cli$present : ADDRESSING MODE (GENERAL) ! CLI Entity presence boolean 
exe$alloc_csd : ALLOC_CSD “ADDRESSING MODE (GENERAL), | Allocate a CSD structure 
exe$Schkrdacces : ADDRESSING_MODE (GENERAL), ' Check read access to pages 
exeSchkwrtacces : ADDRESSING_MODE (GENERAL) ' Check write acess 
exeScsp_call : CSP_CALL ADDRESSING_MODE (GENERAL), ! Communicate with CSP 
exe$dealloc_csd : DALCOC_CSD ADDRESSING-MODE (GENERAL), ! Release CSD structure 
exeS$setopr : ADDRESSING_MODE (GENERAL), ' Set or clear OPR bit 
LibSfree_vm : ADDRESSING _MODE (GENERAL), ! Release a block of virtual memory 
LibSget_vm : ADDRESSING_MODE (GENERAL), ' Allocate a block of virtual memory 
Lib$lookup_key ADDRESSING_MODE (GENERAL), ' Look up keyword in table 

b$put_oufput ADDRESSING_MODE (GENERAL), ! Display a Line on SYSSOUTPUT 

Lib$sig_to_ret ADDRESSING_MODE (GENERAL), ' Convert a signal to a return 
ots$cvt_ti_l : ADDRESSING_MODE (GENERAL), ' Convert = (decimal) to integer 
str$copy_dx : ADDRESSING_MODE (GENERAL), ! Copy string of any class 
str$freeT_dx : ADDRESSING_MODE (GENERAL) ! Release dynamic string 


Symbols from external modules which need explicit declarations 


EXTERNAL LITERAL 


cli$_comma, : 
cli$_concat, : 
cli$_ivverb, : 
cli$_locneg, : 
cli$_locpres, : 
cli$_negated, : 
cli$_nocomd, : 
cli$_present, : 
cli$_facility; : 


' 
External declarations for frequently referenced 


EXTERNAL ROUTINE 
opc$free_vm, 
opc$get_vm; 


Misceilaneous externals 


EXTERNAL 
ascid_INVALIDROCB : block C, BYTE); 


! Parameter ended with a comma 

! Parameter ended with a plus sign 

! Invalid verb ‘ 

' An explicit /NOqual for locai qual 
! An explicit ret for local qual 

' An expl 

' CLI saw 
' An expl 
! CLI fac 


it / 
blank Line and burped 
it /qual was given 

ity code 


ic qual was given 
3a 

ic 

il 

facility routines 

Free a chunk of virtual memory 
Allocate memory 


In a GLOBAL BIND in OPCOMDATA 


T CORPORATION 
PROPRIETARY 
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